home *** CD-ROM | disk | FTP | other *** search
/ Night Owl 19 / Night Owl (The Best of Shareware)(NOPV 19)(1996).ISO / 018a / calv1295.zip / CCSCRIPT.ZIP / CALVARY.ASP next >
Text File  |  1994-09-04  |  6KB  |  138 lines
  1. ; SHEPHERD.ASP
  2. ; The Shepherd's Flock Family BBS
  3. ; SYSOP: John Scudder
  4. ; 822 Masters Drive
  5. ; Oceanside, California 92057-6233
  6. ; BBS: 619-630-7437 or 7303
  7.  
  8. ;**************************************************************************
  9. ;* This is an aspect script file written for ProComm Plus v2.01 to        *
  10. ;* automate mail runs on The Shepherd's Flock Family BBS.  It can be used *
  11. ;* for QWK-style Net-mail runs and should work equally well for the       *
  12. ;* regular BBS user who just wants to do hands-off mail transfers. I am   *
  13. ;* not a programmer by any stretch of the imagination.  Please consult    *
  14. ;* your Aspect Reference Manual if anything goes wrong.  If that fails,   *
  15. ;* I can be reached by using any one of the methodes listed below. If you *
  16. ;* find a way to imporve on this, feel free to do so.  Be sure to upload  *
  17. ;* your improved version to the Shepherd's Flock BBS so that others may   *
  18. ;* enjoy it!  May God bless you as you seek to be closer to Him!          *
  19. ;* Jeffrey Haney --SYSOP, Saltshaker BBS   (714) 850-1539 & (714)850-1372 *
  20. ;* InterNet: jeffrey_haney@saltshaker.win.net                             *
  21. ;* Snail Mail: Salt Shaker BBS                                            *
  22. ;*             20068 Santa Ana Ave. #323                                  *
  23. ;*             Santa Ana, CA 92707                                        *
  24. ;* I can also be reached on CalvaryNet and PhileoNet                      *
  25. ;**************************************************************************
  26.  
  27. ; You will need to change these few entries below this line.  After that,
  28. ; you shouldn't have to change anything. To run and compile this script,
  29. ; start PCPlus with the following command line: PCPLUS /fSHEPHERD.ASX
  30. ;**************************************************************************
  31.  
  32. DEFINE BBS_ENTRY "7"                      ;Change this to whatever Dialing
  33.                                           ;Directory Entry you've set up
  34.                                           ;Shepherd's Flock on.
  35.  
  36. DEFINE FULL_NAME "first last password"    ;Change this to your own first
  37.                                           ;name, last name, and password
  38.  
  39. DEFINE REPLIES "d:\upload\shepherd.REP"   ;Change this to where your REP
  40.                                           ;packets are stored.
  41.  
  42. DEFINE PACKET  "d:\dnload\shepherd.QWK"   ;Change this to where your QWK
  43.                                           ;packets are stored. Be sure to
  44.                                           ;use your default download dir.
  45.  
  46. DEFINE LOG_FILE "shepherd.LOG"            ;No need to change this. This 
  47.                                           ;file is useful to help you find
  48.                                           ;problems in your script.
  49.  
  50.  
  51. ;╓╥───────────────────────────────────────────────────────────────────────╥╖
  52. ;║║ This script should not require any changes below this line. All       ║║
  53. ;║║ variables are defined in the above statements. Please edit these      ║║
  54. ;║║ for your particular setup!                                            ║║
  55. ;╙╨───────────────────────────────────────────────────────────────────────╨╜
  56. ;---------------------------------------------------------------------------
  57.  
  58.  
  59. PROC MAIN
  60.  
  61.    SET MODEM MAXDIAL 100                ;QUIT IF NO ANSWER OR BUSY AFTER
  62.                                         ;100 TRIES
  63.  
  64.    DELETE LOG_FILE                      ;Delete previous log entry
  65.    LOG OPEN LOG_FILE                    ;Open new logfile
  66.  
  67.    FINDFIRST PACKET                     ;Deletes old .QWK packet, in case
  68.       IF FOUND                          ;you didn't already have that taken
  69.          DELETE PACKET                  ;care of.....
  70.       ENDIF
  71.  
  72.    SET ZMODEM AUTODLOAD ON              ;Sets the Auto-Download function on
  73.  
  74.    DIAL BBS_ENTRY                       ;Dials entry from dialing directory
  75.       IF NOT CONNECTED                  ;If it doesn't connect, then it will
  76.          HANGUP                         ;hang up and quit.
  77.          QUIT
  78.       ENDIF
  79.  
  80.    WHEN 0 "continue? " Transmit "^M"    ;This will transmit a carraige return
  81.                                         ;to get you through all those "Enter=
  82.                                         ;Continue" prompts.
  83.  
  84.    WHEN 1 "More? " Transmit "N^M"       ;This will get you through all of the
  85.                                         ;"more?" prompts
  86.  
  87.    WAITFOR "ter)=English? " 20          ;This gets you by the Language prompt
  88.    Transmit "^M"
  89.  
  90.    WAITFOR "(ENTER = NO)^M^J? " 20
  91.    TRANSMIT "N Q NS^M"                  ;Selects"N^M" for no graphics and
  92.                                         ;speed you through a lot of the welcome
  93.                                         ;screens.
  94.  
  95.    WAITFOR "eal First Name? " 20        ; wait for first name prompt
  96.         IF NOT WAITFOR
  97.            TRANSMIT "^M"
  98.         ENDIF
  99.  
  100.    TRANSMIT FULL_NAME                   ;Send your FULL name and password
  101.    TRANSMIT "^M^M"
  102.  
  103.    WAITFOR " Board Command? "   30
  104.         
  105.    TRANSMIT "MAIL^M"                    ;Open the Hub door
  106.  
  107.    WAITFOR "m-Mail Command? "           ;Wait for the command prompt
  108.  
  109.    FINDFIRST REPLIES                    ;This section will look to see
  110.       IF FOUND                          ;if a .REP files exists as defined
  111.          TRANSMIT "U^M"                 ;above. If so, then the UPload
  112.          PAUSE 1                        ;commands are executed. If not,
  113.          SENDFILE ZMODEM REPLIES        ;take you to the download process.
  114.       ENDIF
  115.  
  116.    WAITFOR "m-Mail Command? "           ;Starts download process.
  117.    TRANSMIT "D^M"
  118.  
  119.    WAITFOR "es (Enter)=Yes? " 35        ;Confirms that you want to receive
  120.         IF NOT WAITFOR                  ;messages. If no messages are found,
  121.            TRANSMIT "G^M"               ;script will hang up and quit.
  122.            PAUSE 30
  123.            HANGUP
  124.            QUIT
  125.         ENDIF
  126.    TRANSMIT "^M"                        ;If messages are found, it will start
  127.                                         ;the download process.
  128.  
  129.    WAITFOR "m-Mail Command? "           ;Sends the Goodbye command to log off
  130.    TRANSMIT "G^M"
  131.    PAUSE 30
  132.  
  133.  
  134.    QUIT                                 ;& then quit Procomm.
  135.  
  136. ENDPROC
  137.  
  138.